fmap f = id >=> (\x -> return (f x))